home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 January / Ahoy_Magazine_85-01_1985_Double_L.d64 / mail starter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  493b  |  21 lines
  1. 1 print"[147]"
  2. 2 print"insert data disk in drive 8"
  3. 3 print"press 'd' when done"
  4. 4 get x$:ifx$=""then4
  5. 5 if x$<>"d"then4
  6. 6 print"formating disk please wait"
  7. 7 open15,8,15,"n0:data disk,01":close15
  8. 8 fort=1to1000:next
  9. 9 print"creating data file"
  10. 10 open1,8,15
  11. 20 open2,8,3,"0:list,l,"+chr$(110)
  12. 30 gosub 900
  13. 40 print#1,"p"chr$(3)chr$(0)chr$(3)chr$(1)
  14. 50 gosub 900
  15. 60 print#2,0:print#1,"p"chr$(3)chr$(0)chr$(3)chr$(1)
  16. 70 input#2,x:printx
  17. 300 close2:close1:print"insert program disk":print"load and run mail":end
  18. 900 input#1,e,b$,c,d:printe
  19. 910 if(e=50) or (e<20)then return
  20. 920 print e;b$;c;d:stop:return
  21.